home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1995 November / Macworld Nov ’95.toast / Developers / Selection ƒ 2.5 / graphicOval < prev    next >
Encoding:
Text File  |  1994-02-01  |  179 b   |  18 lines  |  [TEXT/MSET]
  1. :class graphicOval super{ graphicRect }
  2.  
  3. :m draw:
  4.     set: super    \ pen
  5.     ^base call FrameOval ;m
  6.  
  7. ;class
  8.  
  9. endload
  10.  
  11. graphicOval o
  12. draw: o
  13.  
  14. 2 2 pensize: o
  15.  
  16. 10 10 move: o
  17. 5 0 stretch: o
  18.